home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1998 January / macformat-059.iso / mac / Demos / Martial Arts Demo / media / exit.Dxr / Internal_1.ls < prev    next >
Encoding:
Text File  |  1997-09-30  |  1.2 KB  |  43 lines
  1. on exitFrame
  2.   repeat with a = 7 to 9
  3.     if rollOver(a) and the mouseDown then
  4.       case the rollOver of
  5.         7:
  6.           puppetSound("PUNCH")
  7.           puppetSprite(7, 1)
  8.           set the member of sprite 7 to member (the memberNum of sprite 7 + 1) of castLib "graphics"
  9.           updateStage()
  10.           sixthSecDel()
  11.           puppetSprite(7, 0)
  12.           updateStage()
  13.           go("Credits")
  14.         8:
  15.           puppetSound("PUNCH")
  16.           puppetSprite(8, 1)
  17.           set the member of sprite 8 to member (the memberNum of sprite 8 + 1) of castLib "graphics"
  18.           updateStage()
  19.           sixthSecDel()
  20.           puppetSprite(8, 0)
  21.           updateStage()
  22.           go("SPLASH")
  23.         9:
  24.           cursorSign()
  25.           puppetSound("PUNCH")
  26.           puppetSprite(9, 0)
  27.           set the member of sprite 9 to member (the memberNum of sprite 9 + 1) of castLib "graphics"
  28.           updateStage()
  29.           sixthSecDel()
  30.           puppetSprite(9, 0)
  31.           updateStage()
  32.           repeat with a = 1 to 48
  33.             puppetSprite(a, 0)
  34.           end repeat
  35.           go("blackout")
  36.           go("main", "main.dir")
  37.           abort()
  38.       end case
  39.     end if
  40.   end repeat
  41.   go(the frame)
  42. end
  43.